;Edit *.GRD files
;
(defun c:edecs ( / )
  (setq edfil (dos_getfiled "Edit Erosion Control File" (getvar"dwgprefix") "Erosion Control File (*.ecs)|*.ecs||"))
  (if (= 1 edfil)
    (setq edstr "UNNAMED.ecs")
    (setq edstr edfil)
  );IF
  (command "NOTEPAD" edstr)
);defun
